home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 September / Ahoy_Magazine_85-09_1985_Double_L.d64 / moxeys porch (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  192 lines
  1. 5 print"[147]"
  2. 10 poke52,48:poke56,48:clr
  3. 20 rem * moxeys porch * by bob blackmer
  4. 30 dimmv(136):hs=0:a=2:b=39:c=41:mp$="moxeys porch":ps=53270
  5. 40 v=53248:s=54272:m=56320:pokev+21,65:poke53280,6:poke53281,11:u=1401
  6. 50 forl=stos+24:pokel,0:nextl
  7. 60 pokes+5,21:pokes+1,20:pokes+6,240:pokes+4,17:gosub1110
  8. 70 print"[147][158]do you want instructions? (y/n)"
  9. 80 geti$:ifi$=""then80
  10. 90 ifi$="n"then300
  11. 100 ifi$<>"y"then80
  12. 110 print"[147]"tab(11)"[153]"mp$""
  13. 120 print"[159]enzo       just got a pogo stick and"
  14. 130 printtab(11)"jumped over to his neighbors"
  15. 140 printtab(11)"multi-step front porch."
  16. 150 print"[158]moxie      doesn't like the marks"
  17. 160 printtab(11)"enzo's pogo stick is making"
  18. 170 printtab(11)"on his porch."
  19. 180 printtab(3)"[155]to play use joystick #2 and mark up     all the steps on";
  20. 190 print" moxie's porch,":printtab(3)"while trying to avoid moxie's pursuit"
  21. 200 printtab(3)"[145]if successful you are rewarded with"
  22. 210 printtab(3)"another porch and a faster moxie."
  23. 220 pokev+23,65:pokev+29,65:poke2040,p:poke2046,q:pokev+37,6:pokev+38,5
  24. 230 pokev,60:pokev+1,70
  25. 240 pokev+12,60:pokev+13,110
  26. 250 printtab(10)"[153]hit any key to begin":fork=1to99:nextk
  27. 260 gets$:ifs$=""then280
  28. 270 ifs$<>""then290
  29. 280 printtab(10)"[145]hit any key to begin[145]":fork=1to99:nextk:goto250
  30. 290 pokev+23,0:pokev+29,0
  31. 300 sl=0
  32. 310 print"[147]"tab(7)"level (1-9)"
  33. 320 print""tab(7)"1 is the hardest"
  34. 330 getlv$:iflv$=""then330
  35. 340 iflv$<"1"orlv$>"9"then330
  36. 350 lv=val(lv$)+1
  37. 360 print"[147]":poke53272,(peek(53272)and240)+14
  38. 370 poke53282,2:poke53283,7:poke53270,peek(53270)or16
  39. 380 x2=203:y2=166:x1=157:y1=102:u=1401
  40. 390 iflv-1<1thenlv=2
  41. 400 lv=lv-1
  42. 410 print""tab(12)"[159]"mp$
  43. 420 goto450
  44. 430 jv=peek(m):fr=jvand16
  45. 440 jv=15-(jvand15):return
  46. 450 print"[153]"
  47. 460 printtab(17)"#$"
  48. 470 printtab(16)"#%&$"
  49. 480 printtab(15)"#%&%&$"
  50. 490 printtab(14)"#%&%&%&$"
  51. 500 printtab(13)"#%&%&%&%&$"
  52. 510 printtab(12)"#%&%&%&%&%&$"
  53. 520 printtab(11)"#%&%&%&%&%&%&$"
  54. 530 printtab(10)"#%&%&%&%&%&%&%&$"
  55. 540 printtab(9)"#%&%&%&%&%&%&%&%&$"
  56. 550 printtab(8)"#%&%&%&%&%&%&%&%&%&$"
  57. 560 printtab(8)"'('('('('('('('('('(":pokes+24,15
  58. 570 forl=1to136 step2
  59. 580 pokes+4,17:pokes+1,55:pokes+4,16
  60. 590 x2=x2+mv(l):y2=y2+mv(l+1)
  61. 600 forg=lvto1step-1
  62. 610 k=1:gosub430
  63. 620 poke2040,p:ifk<>lvthenk=k+1:goto620
  64. 630 poke2046,q
  65. 640 rem ***note*** lines 650-660 must be entered using abbreviations
  66. 650 pokev,x1:pokev+1,y1:ifpeek(u)=37thenpokeu,c:pokeu+1,c+1:sc=sc+1:pokes+4,129:pokes+4,128
  67. 660 pokev,x1:pokev+1,y1:ifpeek(u)=39thenpokeu,43:pokeu+1,44:sc=sc+1:pokes+4,129:pokes+4,128
  68. 670 pokev+12,x2:pokev+13,y2
  69. 680 p=p+1:ifp>15thenp=13
  70. 690 q=q+1:ifq>199thenq=198
  71. 700 ifp=14thenpokes+4,129:pokes+4,128
  72. 710 ifjv=4thenx1=x1-16:u=u-a:ifpeek(u)=32thenu=u+a:x1=x1+16
  73. 720 ifjv=8thenx1=x1+16:u=u+a:ifpeek(u)=32orpeek(u)=36thenu=u-a:x1=x1-16
  74. 730 ifjv=5thenx1=x1-8:y1=y1-8:u=u-c:ifpeek(u)=32thenu=u+c:x1=x1+8:y1=y1+8
  75. 740 ifjv=6thenx1=x1-8:y1=y1+8:u=u+b:ifpeek(u)=32thenu=u-b:x1=x1+8:y1=y1-8
  76. 750 rem ***note*** lines 760-770 must be entered using abbreviations
  77. 760 ifjv=9thenx1=x1+8:y1=y1-8:u=u-b:ifpeek(u)=32orpeek(u)=36thenu=u+b:x1=x1-8:y1=y1+8
  78. 770 ifjv=10thenx1=x1+8:y1=y1+8:u=u+c:ifpeek(u)=40orpeek(u)=32thenu=u-c:x1=x1-8:y1=y1-8
  79. 780 ifsc=55then970
  80. 790 ify1=y2andx1-2=x2then810
  81. 800 nextg:nextl:goto570
  82. 810 pokev+23,64:pokev+29,64:pokes+4,17:pokes+6,240:x2=180:y2=166:poke2046,199
  83. 820 forl=1to99step2
  84. 830 x2=x2+mv(l):y2=y2+mv(l+1)
  85. 840 pokev+12,x2:pokev+13,y2
  86. 850 pokes+1,l+20
  87. 860 fork=1to40:nextk
  88. 870 nextl
  89. 880 pokes+24,0:pokev+23,0:pokev+29,0:print"[147]":pokeps+2,21:pokeps,peek(ps)and239
  90. 890 sl=sl+sc*10:sc=0:printspc(12)"[158]"mp$:printtab(11)"[153]your score:[158]";sl
  91. 900 ifsl>hsthenhs=sl
  92. 910 printtab(11)"[155]high score:";hs
  93. 920 print"[158]would you like to play again? (y/n)"
  94. 930 getf$:iff$=""then930
  95. 940 iff$="n"thenpokev+21,0:pokes+24,0:print"[147]":end
  96. 950 iff$<>"y"then930
  97. 960 goto300
  98. 970 pokev+23,1:pokev+29,1:pokes+4,17:pokes+6,240:x1=170:y1=166
  99. 980 forl=1to99step2
  100. 990 x1=x1+mv(l):y1=y1+mv(l+1)
  101. 1000 pokev,x1:pokev+1,y1
  102. 1010 pokes+1,l+20
  103. 1020 fork=1to40:nextk
  104. 1030 nextl
  105. 1040 sl=sl+sc*10
  106. 1050 pokes+24,0:pokev+23,0:pokev+29,0:print"[147]":pokeps+2,21:pokeps,peek(ps)and239
  107. 1060 printtab(12)"[159]"mp$:printtab(13)"[158]score:";sl:sc=0
  108. 1070 iflv-1<1thenlv=2
  109. 1080 printtab(10)"[158]you have reached":printtab(14)"level:[153]";lv-1
  110. 1090 fork=1to1500:nextk
  111. 1100 pokeps,peek(ps)or16:pokeps+2,(peek(ps+2)and240)+14:goto360
  112. 1110 print"[147][158]i'm working....please be patient"
  113. 1120 poke56334,peek(56334)and254:poke1,peek(1)and251
  114. 1130 fori=0to57
  115. 1140 forj=0to7
  116. 1150 poke14336+i*8+j,peek(v+i*8+j)
  117. 1160 nextj:nexti
  118. 1170 poke1,peek(1)or4:poke56334,peek(56334)or1
  119. 1180 ck=0:forch=35to45
  120. 1190 forby=0to7
  121. 1200 read nu:ck=ck+nu
  122. 1210 poke14336+(8*ch)+by,nu
  123. 1220 next by:next ch
  124. 1230 ifck<>10450thenprint"error in data-lines 1300-1400":end
  125. 1240 ck=0:fors1=832to894:readq1:ck=ck+q1:pokes1,q1:next
  126. 1250 fors2=896to958:readq2:ck=ck+q2:pokes2,q2:next
  127. 1260 fors3=960to1022:readq3:ck=ck+q3:pokes3,q3:next
  128. 1270 fors4=12672to12734:readq4:ck=ck+q4:pokes4,q4:next
  129. 1280 fors5=12736to12798:readq5:ck=ck+q5:pokes5,q5:next:p=13:q=198
  130. 1290 ifck<>8699thenprint"error in data-lines 1410-1800":end
  131. 1300 ck=0:forw=1to136step2:readq6,q7:mv(w)=q6:mv(w+1)=q7:ck=ck+q6+q7:nextw
  132. 1310 ifck<>0thenprint"error in data lines 1810-1870":end
  133. 1320 pokev+28,65:pokev+37,6:pokev+38,5:pokev+45,0:pokev+39,15:return
  134. 1330 data0,0,0,0,2,10,42,170
  135. 1340 data0,0,0,0,128,160,168,170
  136. 1350 data106,90,86,85,85,149,165,169
  137. 1360 data171,175,191,255,255,254,250,234
  138. 1370 data106,90,86,85,85,21,5,1
  139. 1380 data171,175,191,255,255,252,240,192
  140. 1390 data104,90,86,85,85,149,165,169
  141. 1400 data43,175,191,255,255,254,250,234
  142. 1410 data104,90,86,85,85,21,5,1
  143. 1420 data43,175,191,255,255,252,240,192
  144. 1430 data0,0,0,0,0,0,0,0
  145. 1440 data 0,0,0,0,0,0,0,0
  146. 1450 data 0,0,0,0,0,112,0,0
  147. 1460 data 136,0,1,4,0,0,112,0
  148. 1470 data 1,84,0,4,81,0,4,169
  149. 1480 data 0,1,36,0,0,32,0,1
  150. 1490 data 36,0,1,36,0,1,36,0
  151. 1500 data 1,36,0,1,36,0,0,168
  152. 1510 data 0,0,32,0,0,32,0
  153. 1520 data 0,0,0,0,0,0,0,0
  154. 1530 data 0,0,0,0,0,0,0,0
  155. 1540 data 0,0,0,112,0,0,136,0
  156. 1550 data 1,4,0,0,112,0,1,84
  157. 1560 data 0,4,81,0,4,169,0,1
  158. 1570 data 36,0,0,32,0,1,36,0
  159. 1580 data 1,36,0,1,36,0,1,36
  160. 1590 data 0,1,36,0,0,168,0
  161. 1600 data 0,0,0,0,0,0,0,112
  162. 1610 data 0,0,136,0,1,4,0,0
  163. 1620 data 112,0,1,84,0,4,81,0
  164. 1630 data 4,169,0,1,36,0,0,32
  165. 1640 data 0,1,36,0,1,36,0,1
  166. 1650 data 36,0,1,36,0,1,36,0
  167. 1660 data 0,168,0,0,32,0,0,32
  168. 1670 data 0,0,0,0,0,0,0
  169. 1680 data0,0,0,0,0,0,0,0
  170. 1690 data0,0,0,0,0,0,0,0
  171. 1700 data0,0,0,0,0,0,0,0
  172. 1710 data0,0,0,0,42,0,0,170
  173. 1720 data128,2,235,160,2,170,160,2
  174. 1730 data255,224,2,170,160,0,170,128
  175. 1740 data0,42,0,0,34,0,2,162
  176. 1750 data160,0,0,0,0,0,0
  177. 1760 data0,0,0,0,0,0,0,0
  178. 1770 data0,0,0,0,0,0,0,0
  179. 1780 data0,0,0,0,0,0,0,0
  180. 1790 data0,0,0,0,0,0,0,0
  181. 1800 data0,0,42,0,0,170,128,2
  182. 1810 data235,160,2,170,160,2,255,224
  183. 1820 data2,191,160,0,170,128,0,42
  184. 1830 data0,0,34,0,2,162,160
  185. 1840 data-16,0,-16,0,-16,0,-16,0,-16,0,8,-8,8,-8,8,-8,8,-8,-8,-8
  186. 1850 data-8,-8,8,-8,8,-8,8,8,8,8,8,8,8,8,-8,8,-8,8,-16,0
  187. 1860 data-16,0,-16,0,-8,8,16,0,16,0,-8,-8,-8,-8,8,-8,8,-8,8,-8
  188. 1870 data8,8,8,8,8,8,8,8,-8,8,-8,8,-8,8,16,0,16,0,16,0
  189. 1880 data16,0,-8,-8,-8,-8,-16,0,8,8,-8,8,-16,0,-16,0
  190. 1890 data-16,0,8,-8,8,-8,-8,-8,8,-8,-16,0,-16,0,-16,0,-8,8
  191. 1900 data-8,8,-8,8,-8,8,16,0,16,0,16,0,16,0,8,-8,16,0,16,0,16,0
  192.